home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / B-Book Series / (k)b8.d64 / polygon.l < prev    next >
Text File  |  2007-02-28  |  493b  |  22 lines
  1. 9000 PROC POLYGON(SIDES,RADIUS) CLOSED
  2. 9010 //THIS ROUTINE DRAWS A POLYGON
  3. 9020 // CENTERED AT THE CURRENT
  4. 9030 // POSITION WITH SIDES AND RADIUS
  5. 9040 // GIVEN
  6. 9050 PI:=3.14159265
  7. 9060 LENGTH:=2*RADIUS*SIN(PI/SIDES)
  8. 9070 ANGLE:=180*(1-(SIDES-2)/SIDES)
  9. 9080 PENUP 
  10. 9090 FORWARD RADIUS
  11. 9100 RIGHT 90+ANGLE/2
  12. 9110 PENDOWN 
  13. 9120 FOR SIDE:=1 TO SIDES DO
  14. 9130 FORWARD LENGTH
  15. 9140 RIGHT ANGLE
  16. 9150 ENDFOR SIDE
  17. 9160 RIGHT 90-ANGLE/2
  18. 9170 PENUP 
  19. 9180 FORWARD RADIUS
  20. 9190 RIGHT 180
  21. 9200 ENDPROC POLYGON
  22.